home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-10-26 | 724 b | 33 lines | [TEXT/ScoM] |
- ; ZONEX - individual zone support example
-
- (def-zone
- test '(1/2 1/4 1/1) ; lengths of each zone
- )
-
- (def-tonality
- test (activate-tonality (major c 4) (chromatic c 5))
- )
-
- (def-symbol
- test '((a b c) (l m n) (-a -b -c))
- ; this pattern is played around and around through zones
- )
-
- (def-length
- test '((1/16 1/32 1/32) (1/32) (1/8 1/16))
- ; this pattern restarts when the zone changes
- )
-
- (def-velocity
- test '((100 101 102) (45 52 34) (80 81 82))
- ; each zone has its own pattern (that goes round and round).
- )
-
- ; If there are more zones than sublists in length, velocity and symbol
- ; definitions then the whole list of sublists is repeated over and over.
-
- (compile-instrument-p "ccl;output:" "multizones"
- test
- )
-
-